setClass("VHtester",
		representation(
				.description="character",
				"VIRTUAL"
		),
		prototype=prototype(
				.description="Virtual Hypothesis tester class"
		
		)
)  
#generic functions
setGeneric("htest",function(.Object,vec1,vec2,...){standardGeneric("htest")})

#initialization method 
setMethod("initialize",
		signature="VHtester",
		function(.Object,...){
			return(.Object)
		})

setMethod("get_description",
		signature="VHtester",
		definition=function(.Object){
			.Object@.description
		})

setMethod("htest",
		signature="VHtester",
		definition=function(.Object,vec1,vec2,...){
			return(0.0)
		}
) 
